ocr: Our solution to Outside Assignment 6 with text_ io, calendar; use text_io, calendar; procedure tasking is interval : constant duration := 5.0; total_ intervals : constant positive := 9; start_ time constant time := clock; quitting_time constant time := start_time + total_ intervals-interval: next_ time : time := start time; task type tick is ENTRY IDENTIFYUTASKNUMBER : IN NATURAL); entry shutdown; end tick; T - ARRAY(1 . 3) OF TICK; PERIOD CONSTANT ARRAYCTRANGE) OF POSITIVE := (2, 3, 4); TIMER : ARHAYCTRANGED OF NATURAL := (OTHERS => 0); task body tick is quit : boolean := false; begin while n ...
(.png)
